home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0065.dms / ff.0065.adf / PascalToC / testfile.p < prev   
Text File  |  1987-04-04  |  555b  |  24 lines
  1. { sort -- external sort of text lines, from Software Tools in Pascal, pg 121 }
  2. procedure sort;
  3. const
  4.     MAXCHARS = 10000;    { maximum # of text characters }
  5.     MAXLINES = 300;        { maximum # of lines }
  6.     MERGEORDER = 5;
  7. type
  8.     charpos = 1..MAXCHARS;
  9.     charbuf = array [1..MAXCHARS] of character;
  10.     posbuf = array [1..MAXLINES] of charpos;
  11.     pos = 0..MAXLINES;
  12.     fdbuf = array [1..MERGEORDER] of filedesc;
  13. var
  14.     linebuf : charbuf;
  15.     linepos : posbuf;
  16.     nlines : pos;
  17.     infile: fdbuf;
  18.     outfile : filedesc;
  19.     high, low, lim: integer;
  20.     done : boolean;
  21.     name : string;
  22. begin
  23. end
  24.